unit PoslovnoLetoFrm;

interface

uses
  Windows, Classes,
  Controls, StdCtrls, ExtCtrls, ActnList, StdActns,
  DB, DBClient, alBaseDataSet, MConnect,
  Forms, DBBaseFrm, SifrantFrm,
  PoslovanjeSrv_TLB,
  cxClasses, cxControls, cxGraphics, cxContainer, cxStyles, cxEditRepositoryItems,
  cxCustomData, cxData, cxFilter,
  cxEdit, cxDBEdit, cxTextEdit, cxDBData,
  cxGrid, cxGridLevel, cxGridCustomView, cxGridCustomTableView, cxGridTableView,
  cxGridBandedTableView, cxGridDBBandedTableView, cxMaskEdit,
  cxDropDownEdit, cxCalendar, ImgList, cxDataStorage, kdbinfo, kdbstruc;

type
  TfrmPoslovnoLeto = class(TfrmSifrant)
    edtDatumZacetek: TcxDBDateEdit;
    edtDatumKonec: TcxDBDateEdit;
    lblDatumZacetek: TLabel;
    lblDatumKonec: TLabel;
    rpstMainDatum: TcxEditRepositoryDateItem;
  private
    { Private declarations }
  protected
    function GetSessionParamRelations(DataSet: TDataSet): TSessionParamRelations; override;
  public
    { Public declarations }
  end;

var
  frmPoslovnoLeto: TfrmPoslovnoLeto;

implementation

uses
  MainFrm;

{$R *.dfm}

function TfrmPoslovnoLeto.GetSessionParamRelations(DataSet: TDataSet): TSessionParamRelations;
begin
  if DataSet = cdsMain then
  begin
    SetLength(Result, 1);
    Result[0].FieldName := 'REF_ID';
    Result[0].SessionName := 'PODJETJE_ID';
  end;
end;

end.
